home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 8 / The Arsenal Files Collection #8 (Arsenal Computer) (1996).ISO / wildcat / friend.zip / FRIEND.WCX (.txt) < prev    next >
Wildcat! WCX  |  1996-09-15  |  748b  |  79 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  748 bytes  11/15/122  01:49:26am
  3. '! Code Segment Size  :513 bytes
  4. '! Data Segment Size  :4799 bytes
  5. '! String Segment Size:235 bytes
  6. '! Compiled with WCC version 4.20
  7.  
  8.       Type Type26
  9.         Filler0(1 To 6) As Byte
  10.         s6 As String*70
  11.         Filler76(1 To 14) As Byte
  12.         s90 As String*70
  13.         Filler160(1 To 14) As Byte
  14.         s174 As String*70
  15.       End Type
  16.  
  17.       Declare Function Func318(mh65534 As MessageHeader) As Integer
  18.  
  19.       Dim mh4475 As MessageHeader
  20.       Dim s4795 As String
  21.  
  22.       Cls 
  23.       Color 2
  24.       DisplayTextFile("friend.bbs")
  25.       Color 2
  26.       Print Spc(- 255); "Registered TO Game Castle BBS"
  27.       Print Spc(- 255); "UnRegistered 15 Second Delay"
  28.       Delay 15
  29.       WaitEnter 
  30.       Cls 
  31.       Color 14, 0
  32.       DisplayTextFile("1.bbs")
  33.       WaitEnter 
  34.       Cls 
  35.       Color 10
  36.       Print Spc(255); "ARE YOU READY TO FIND AND MAKE YOUR NEW FRIEND ?"
  37.       Color 9, 0
  38.       DisplayTextFile("2.bbs")
  39.       Color 4, 0
  40.       If InputYesNo("Enter 'Y' for Your Friendly UserList>>", 1213417543) Then
  41.         UserList 
  42.       End If
  43.   197 DisplayTextFile("3.bbs")
  44.       Color 2, 0
  45.       If Func318(mh4475) Then
  46.         Print "Message: ";
  47.         Input s4795
  48.         If s4795 > "" Then
  49.           AddMessage(mh4475, s4795, "", 1213417543)
  50.         End If
  51.   280 Else
  52.   286   Print "No Message Sent"
  53.         WaitEnter 
  54.       End If
  55.   298
  56.  
  57. '! Called 1 time
  58.       Function Func318(mh65534 As MessageHeader) As Integer
  59.         Dim i65530 As Integer
  60.  
  61.         Func318 = 0
  62.         Do
  63.   333     DisplayPrompt 997
  64.           Input mh65534.From
  65.           DisplayPrompt 990
  66.           Input mh65534.To
  67.           DisplayPrompt 998
  68.           Input mh65534.Subject
  69.           i65530 = Trim(mh65534.From + mh65534.To + mh65534.Subject) > ""
  70.           If Not i65530 Then
  71.             If InputYesNo("Abort message ?", 1213417543) Then
  72.               GoTo 505
  73.             End If
  74.           End If
  75.   486   Loop Until i65530
  76.         Func318 = -1
  77.   505
  78.       End Function
  79.